From: Roland McGrath <roland@gnu.org>
Date: Sun, 7 Mar 1993 23:41:34 +0000 (+0000)
Subject: (syms_of_buffer): Make erase-buffer a disabled command.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~97000
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=188d4d111de08e375dc28e7d105457116dd1d65e;p=emacs.git

(syms_of_buffer): Make erase-buffer a disabled command.
---

diff --git a/src/buffer.c b/src/buffer.c
index 28091e763ea..e254db179c7 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -1402,6 +1402,8 @@ init_buffer ()
 /* initialize the buffer routines */
 syms_of_buffer ()
 {
+  extern Lisp_Object Qdisabled;
+
   staticpro (&Vbuffer_defaults);
   staticpro (&Vbuffer_local_symbols);
   staticpro (&Qfundamental_mode);
@@ -1417,6 +1419,8 @@ syms_of_buffer ()
   Fput (Qprotected_field, Qerror_message,
 	build_string ("Attempt to modify a protected field"));
 
+  Fput (intern ("erase-buffer"), Qdisabled, Qt);
+
   /* All these use DEFVAR_LISP_NOPRO because the slots in
      buffer_defaults will all be marked via Vbuffer_defaults.  */